home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / reels / reels.dms / reels.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1991-06-20  |  38KB  |  1,130 lines
  1. Rem=============REELS By Tom and Kev=========================================            
  2. '
  3. Rem===This is a very large program So, 
  4. Rem===I have tried to number each part in order of operation as far as 
  5. Rem===possible and found it very hard, so forgive me where I failed    
  6. Rem===And I have numbered each proc to help you know if you have reached 
  7. Rem===the one you want or have passed it.  
  8. 'P02 
  9. Screen Open 0,320,200,16,Lowres
  10. Cls 0
  11. Screen Open 1,320,200,32,Lowres
  12. Hide 
  13. 'P04 
  14. Load Iff "TITLE3.IFF",1
  15. Get Bob 110,74,80 To 157,152 : Get Bob 111,180,80 To 263,152
  16. Get Bob 112,286,80 To 370,152 : Get Bob 113,388,80 To 471,152
  17. Get Bob 114,488,80 To 572,152 : Get Bob 115,74,154 To 264,184
  18. 'P06 
  19. Cls 0
  20. Bell : Paste Bob 74,80,110 : Wait 50
  21. Bell : Paste Bob 180,80,111 : Wait 50
  22. Bell : Paste Bob 286,80,112 : Wait 50
  23. Bell : Paste Bob 388,80,113 : Wait 50
  24. Bell : Paste Bob 488,80,114 : Wait 60
  25. Bell : Paste Bob 74,154,115 : Wait 90
  26. Bob Off 
  27. Screen Close 1
  28. Screen Close 0
  29. '
  30. 'P10..........................List of global variables......................   
  31. Global A,B,C,D,E,F,GR,H,J,K,L,M,N,P,Q,R,S,T,TS,U,V,VW,W,X,Z,STAART,GOES,TRIES
  32. Global PAIR,SCORE,NUDGES,AGAIN,PLANE,MARIO,FROG,MERMAID,BIKE,WIZARD,SCOOP
  33. Global ZON13,ZON14,ZON15,ZON16,ZON17,ZON18,HOLD_1,HOLD_2,HOLD_3,HOLD_4,HOLD_5
  34. Global PITURE,TYME,HI_SCORE,SELECT_1,SELECT_2,SELECT_3,SELECT_4,SELECT_5
  35. Global GAMBLE,WIPE,BONUS,LIM,THIS_SCORE,LAST_SCORE,LEFT,DROOP
  36. '
  37. 'P20=========================CREATE PLAYING AREA===================    
  38. Rem--Extra high screen to mount 8 bobs high then get them as one long bob
  39. Screen Open 2,360,800,16,Lowres
  40. Flash Off : Curs Off 
  41. '
  42. '
  43. 'P25.......................Load bank to pick images from....................         
  44. Load "REELS6.abk"
  45. '
  46. 'P30.....................Paste images to make the long bob.................      
  47. Paste Bob 320,0,12 : Paste Bob 320,96,13 : Paste Bob 320,192,12
  48. Paste Bob 320,288,13 : Paste Bob 320,384,12 : Paste Bob 320,480,13
  49. Paste Bob 320,576,12 : Paste Bob 320,672,13
  50. '
  51. 'P35 ............................Then get long BOB and clear screen.........     
  52. Get Bob 1,320,0 To 352,768
  53. Cls 
  54. '
  55. 'P40...............................Paste 2 bobs for score oblongs    
  56. Paste Bob 10,20,26 : Paste Bob 64,20,27
  57. '
  58. 'P50...............................Get them in one Bob and clear screen......  
  59. Get Bob 2,10,20 To 119,35
  60. Cls 
  61. '
  62. 'P55.................Paste 2 bobs for score oblongs at top of screen.....
  63. Paste Bob 10,40,98 : Paste Bob 73,40,27
  64. '
  65. 'P60 ........................Make One Long Bob and clear screen............. 
  66. Get Bob 3,10,40 To 128,55
  67. Cls 0
  68. '
  69. 'P70...........Put The Iff Picture of Border On To The Screen and get Palette  
  70. Load Iff "OURPICT.iff",1
  71. Get Sprite Palette 
  72. '
  73. 'P75....................Add the Reel and hold borders........................      
  74. Paste Bob 45,46,14 : Paste Bob 93,46,14 : Paste Bob 141,46,14
  75. Paste Bob 189,46,14 : Paste Bob 237,46,14
  76. '
  77. 'P80 ...................Now the Top Score select oblongs.....................        
  78. Paste Bob 100,6,3 : Paste Bob 104,9,43 : Paste Bob 154,9,42
  79. Paste Bob 6,26,3 : Paste Bob 10,29,95 : Paste Bob 60,29,42
  80. Paste Bob 196,26,3 : Paste Bob 200,29,44 : Paste Bob 250,29,42
  81. '
  82. 'P85......................Put the long lines across....................      
  83. Paste Bob 4,21,7 : Paste Bob 100,21,7 : Paste Bob 196,21,7
  84. Paste Bob 220,21,7
  85. Paste Bob 4,41,7 : Paste Bob 100,41,7 : Paste Bob 196,41,7
  86. Paste Bob 220,41,7
  87. Paste Bob 4,120,7 : Paste Bob 100,120,7 : Paste Bob 196,120,7
  88. Paste Bob 220,120,7
  89. Paste Bob 4,215,7 : Paste Bob 100,215,7 : Paste Bob 196,215,7
  90. Paste Bob 220,215,7
  91. '
  92. 'P90...................Make double buffer for smooth movement............  
  93. Double Buffer 
  94. '
  95. 'P95...................Paste Game Name ....................................
  96. Paste Bob 128,28,91
  97. '
  98. 'P100=================SELECT RANDOM FIRST IMAGE NO.s and HOLD IN MEMORY====      
  99. W=Rnd(5) : If W=0 Then W=6
  100. U=Rnd(5) : If U=0 Then U=6
  101. P=Rnd(5) : If P=0 Then P=6
  102. N=Rnd(5) : If N=0 Then N=6
  103. Q=Rnd(5) : If Q=0 Then Q=6
  104. '
  105. 'P105..................Reserve all zones once and for all ...................    
  106. Reserve Zone 26
  107. '
  108. 'P110........Now set all zones except left hand scoring oblongs........  
  109. '..............because you can't set one zone on top of another
  110. '
  111. '............ set zones for five HOLD buttons .................... 
  112. Set Zone 1,48,105 To 79,117 : Set Zone 2,96,105 To 127,117
  113. Set Zone 3,144,105 To 175,117 : Set Zone 4,192,105 To 223,117
  114. Set Zone 5,240,105 To 271,117
  115. '
  116. '............. set zone for the start button "KLIK"
  117. Set Zone 6,278,105 To 309,117
  118. '
  119. '..................Set zones for 6 Right Side scoring oblongs.....................   
  120. Set Zone 13,209,128 To 309,139 : Set Zone 14,199,143 To 299,154
  121. Set Zone 15,191,158 To 291,169 : Set Zone 16,182,173 To 282,184
  122. Set Zone 17,173,188 To 273,199 : Set Zone 18,163,203 To 263,214
  123. '
  124. '..................Set zones for YES And NO..........................
  125. Set Zone 19,145,138 To 166,151 : Set Zone 20,148,164 To 166,177
  126. '
  127. '
  128. '========That is the screen set up for the first show======================        
  129. '
  130. Show 
  131. '......... AGAIN=False here first time so the program ignores the next part
  132. '................. until sent here from the Goto AGAIN instruction   
  133. '
  134. 'P200+P360 ..................Now AGAIN = true..........................      
  135. AGAIN:
  136. '
  137. If AGAIN=True
  138.    '...................These insts. stop program while reels are moving.....    
  139.    While Chanmv(1)
  140.    Wend 
  141.    While Chanmv(2)
  142.    Wend 
  143.    While Chanmv(3)
  144.    Wend 
  145.    While Chanmv(4)
  146.    Wend 
  147.    While Chanmv(5)
  148.    Wend 
  149.    '
  150.    'P210+P370........Test whether to paste the word HOLD on buttons.......        
  151.    '    
  152.    If HOLD_1=False : Paste Bob 48,105,11 : End If 
  153.    If HOLD_2=False : Paste Bob 96,105,11 : End If 
  154.    If HOLD_3=False : Paste Bob 144,105,11 : End If 
  155.    If HOLD_4=False : Paste Bob 192,105,11 : End If 
  156.    If HOLD_5=False : Paste Bob 240,105,11 : End If 
  157. End If 
  158. '
  159. 'P120+P220+P380======First stage carries on from here=====================       
  160. '==============Allocate channels to bobs.Make position "Y" variable Letters==  
  161. '....Using the 1st RDM image No.s and placing them at lowest positions.......        
  162. '...............Ready for the first spin of the reels.....................   
  163. '..............Use Limit bob to make bob windows.......................... 
  164. '
  165. A=-486 : B=-646 : C=-614 : D=-582 : E=-550 : F=-518
  166. Channel 1 To Bob 1
  167. If W=1 Then Bob 1,48,A,1
  168. If W=2 Then Bob 1,48,B,1
  169. If W=3 Then Bob 1,48,C,1
  170. If W=4 Then Bob 1,48,D,1
  171. If W=5 Then Bob 1,48,E,1
  172. If W=6 Then Bob 1,48,F,1
  173. Limit Bob 63,50 To 286,98
  174. '
  175. Channel 2 To Bob 2
  176. If U=1 Then Bob 2,96,A,1
  177. If U=2 Then Bob 2,96,B,1
  178. If U=3 Then Bob 2,96,C,1
  179. If U=4 Then Bob 2,96,D,1
  180. If U=5 Then Bob 2,96,E,1
  181. If U=6 Then Bob 2,96,F,1
  182. Limit Bob 63,50 To 286,98
  183. '
  184. Channel 3 To Bob 3
  185. If P=1 Then Bob 3,144,A,1
  186. If P=2 Then Bob 3,144,B,1
  187. If P=3 Then Bob 3,144,C,1
  188. If P=4 Then Bob 3,144,D,1
  189. If P=5 Then Bob 3,144,E,1
  190. If P=6 Then Bob 3,144,F,1
  191. Limit Bob 63,50 To 286,98
  192. '
  193. Channel 4 To Bob 4
  194. If N=1 Then Bob 4,192,A,1
  195. If N=2 Then Bob 4,192,B,1
  196. If N=3 Then Bob 4,192,C,1
  197. If N=4 Then Bob 4,192,D,1
  198. If N=5 Then Bob 4,192,E,1
  199. If N=6 Then Bob 4,192,F,1
  200. Limit Bob 63,50 To 286,98
  201. '
  202. Channel 5 To Bob 5
  203. If Q=1 Then Bob 5,240,A,1
  204. If Q=2 Then Bob 5,240,B,1
  205. If Q=3 Then Bob 5,240,C,1
  206. If Q=4 Then Bob 5,240,D,1
  207. If Q=5 Then Bob 5,240,E,1
  208. If Q=6 Then Bob 5,240,F,1
  209. Limit Bob 63,50 To 286,98
  210. '
  211. Bell 
  212. 'P125====From here it goes to NEW_GAME_RESET to reset the scores and counters    
  213. '............................at the start of each complete game ............       
  214. If AGAIN=False
  215.    NEW_GAME_RESET_1
  216.    '
  217.    'P150..........Paste klick On Start Button & Print Text Insts.............       
  218.    KLICKING_3
  219.    '
  220. End If 
  221. '..................NUDGES does not=True yet so we skip the next part 
  222. 'P390.............Now it does................................. 
  223. If NUDGES=True
  224.    NUDGES_11
  225. 'P460............................. 
  226.    SELECTYOURHAND_16
  227.    '...........................Now we state it's the end of a game  
  228.    If TRIES=36
  229.       '
  230.       FLAASH_2
  231.       AGAIN=False
  232.       Goto AGAIN
  233.    End If 
  234.    Wait Vbl 
  235.    Rem ======================== Prepare for next hand=======================
  236.    '
  237.    NUDGES=False : STAART=False : AGAIN=False : ESCAPE=False
  238.    SELECT_1=False : SELECT_2=False : SELECT_3=False
  239.    SELECT_4=False : SELECT_5=False
  240.    HOLD_1=False : HOLD_2=False : HOLD_3=False : HOLD_4=False : HOLD_5=False
  241.    '
  242.    GOES=0 : L=0 : PAIR=0
  243.    '...................... Paste blanks over "SCORE" buttons ...........
  244.    Paste Bob 48,105,4 : Paste Bob 96,105,4
  245.    Paste Bob 144,105,4 : Paste Bob 192,105,4 : Paste Bob 240,105,4
  246.    '
  247.    '..............Paste klick On Start Button & Print Text Insts................    
  248.    KLICKING_3
  249.    '
  250.    '.............................Paste the number of credits left.........  
  251.    Paste Bob 18,106,M
  252.    Paste Bob 26,106,S
  253.    '
  254. End If 
  255. '
  256. 'P230...........Test it is not the first go of three. AGAIN would = FALSE      
  257. If GOES<3 and AGAIN=True
  258.    STAART=False
  259.    If GOES=1 and LEFT<6 and THIS_SCORE>24
  260.       GAMBLING_6
  261.    End If 
  262.    HOLDING_8
  263.    'P240..............................................
  264.    '   '=============this part repeats until the holds have been selected   
  265.    '   '=================and the KLICK button clicked on===========   
  266.    Repeat 
  267.       '............................Reel one.................................   
  268.       If Hzone(X Mouse,Y Mouse)=1 and Mouse Key<>0
  269.          If SELECT_1=False
  270.             If HOLD_1=False
  271.                Paste Bob 48,105,10 : Rem ..............HELD button
  272.                HOLD_1=True
  273.             Else 
  274.                Paste Bob 48,105,11 : Rem ..............Hold button
  275.                HOLD_1=False
  276.             End If 
  277.          End If 
  278.          Wait 14 : Rem..............................To stop multiple kliks
  279.       End If 
  280.       '  
  281.       '.............................Reel two................................   
  282.       If Hzone(X Mouse,Y Mouse)=2 and Mouse Key<>0
  283.          If SELECT_2=False
  284.             If HOLD_2=False
  285.                Paste Bob 96,105,10
  286.                HOLD_2=True
  287.             Else 
  288.                Paste Bob 96,105,11
  289.                HOLD_2=False
  290.             End If 
  291.          End If 
  292.          Wait 14 : Rem.....to stop multiple kliks.......... 
  293.       End If 
  294.       '  
  295.       '...................................Reel three..............................   
  296.       If Hzone(X Mouse,Y Mouse)=3 and Mouse Key<>0
  297.          If SELECT_3=False
  298.             If HOLD_3=False
  299.                Paste Bob 144,105,10
  300.                HOLD_3=True
  301.             Else 
  302.                Paste Bob 144,105,11
  303.                HOLD_3=False
  304.             End If 
  305.          End If 
  306.          Wait 14 : Rem.....to stop multiple kliks.......... 
  307.       End If 
  308.       '  
  309.       '..................................Reel four...............................  
  310.       If Hzone(X Mouse,Y Mouse)=4 and Mouse Key<>0
  311.          If SELECT_4=False
  312.             If HOLD_4=False
  313.                Paste Bob 192,105,10
  314.                HOLD_4=True
  315.             Else 
  316.                Paste Bob 192,105,11
  317.                HOLD_4=False
  318.             End If 
  319.          End If 
  320.          Wait 14 : Rem.....to stop multiple kliks.......... 
  321.       End If 
  322.       ' ................................Reel five......................  
  323.       If Hzone(X Mouse,Y Mouse)=5 and Mouse Key<>0
  324.          If SELECT_5=False
  325.             If HOLD_5=False
  326.                Paste Bob 240,105,10
  327.                HOLD_5=True
  328.             Else 
  329.                Paste Bob 240,105,11
  330.                HOLD_5=False
  331.             End If 
  332.          End If 
  333.          Wait 14 : Rem.....to stop multiple kliks.......... 
  334.       End If 
  335.       '  
  336.       'P250......................................................
  337.       'Test for Klick button which will make STAART=true.& Klick button green    
  338.       If Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0
  339.          Paste Bob 278,106,17 : Rem.....................Green button   
  340.          STAART=True
  341.          Ink 0,0
  342.          S$="THIS WILL BLANK OUT ABOVE WORDS "
  343.          Text 50,238,S$
  344.          'P260............................. 
  345.          Inc GOES : TRIES_NUM_4
  346.       End If 
  347.    Until STAART=True or GOES=3
  348.    Wait Vbl 
  349.    '
  350.    'P280..........Introduce SELECT to freeze HOLDS when KLIK is pressed...  
  351.    '
  352. If HOLD_1=False : SELECT_1=False : Else SELECT_1=True : End If 
  353.    '
  354. If HOLD_2=False : SELECT_2=False : Else SELECT_2=True : End If 
  355.    '
  356. If HOLD_3=False : SELECT_3=False : Else SELECT_3=True : End If 
  357.    '
  358. If HOLD_4=False : SELECT_4=False : Else SELECT_4=True : End If 
  359.    '
  360. If HOLD_5=False : SELECT_5=False : Else SELECT_5=True : End If 
  361.    '
  362.    'P290....Test if there have been three goes, and if so, make NUDGES true..       
  363.    If GOES=3 : NUDGES=True : End If 
  364. End If 
  365. '
  366. 'P160+260+300===Picking out the next random numbers to decide how many images        
  367. '...................to move up, and hold them in memory....            
  368. '==============================REEL 1==================================
  369. '
  370. REEL_1:
  371. If HOLD_1=True Then Goto REEL_2 : 
  372. '
  373. V=Rnd(5)
  374. If V=0 Then V=6
  375. '
  376. '......................... .......Move up 12 first ......................
  377. A$=" For RD=1 To 12; Let Y=Y-1; Pause; Next RD; Pause"
  378. A$=A$+"For RD=1 To 3; Let Y=Y+4; Next RD; Pause"
  379. '
  380. '.................Then move to just 18 before the image......................  
  381. If V=1
  382.    A$=A$+"For RD=1 To 95; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  383. End If 
  384. If V=2
  385.    A$=A$+"For RD=1 To 103; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  386. End If 
  387. If V=3
  388.    A$=A$+"For RD=1 To 111; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  389. End If 
  390. If V=4
  391.    A$=A$+"For RD=1 To 71; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  392. End If 
  393. If V=5
  394.    A$=A$+"For RD=1 To 79; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  395. End If 
  396. If V=6
  397.    A$=A$+"For RD=1 To 87; Let Y=Y+4; Next RD; Pause; Let Y=Y+2"
  398. End If 
  399. '  
  400. ' .................. Slow down run to 16 past selected image...........
  401. A$=A$+"For RD=1 To 14; Let Y=Y+3; Next RD; Pause"
  402. A$=A$+"For RD=1 To 4; Let Y=Y+2; Next RD; Pause; Pause; Pause; Pause; Pause; Pause"
  403. '
  404. ' ........................Now 16 back after halt ......................... 
  405. A$=A$+"For RD=1 To 4; Let Y=Y-1; Next RD; Pause"
  406. A$=A$+"For RD=1 To 12; Let Y=Y-1; Pause; Next RD; Pause"
  407. '
  408. Amal 1,A$
  409. 'Rem============================Reel 2 ===================================   
  410. REEL_2:
  411. If HOLD_2=True Then Goto REEL_3
  412. R=Rnd(5)
  413. If R=0 Then R=6
  414. RU=R+U
  415. If RU>6 Then RU=RU-6
  416. '
  417. '........................ .......Move up 12 first ...................... 
  418. B$=" For RE=1 To 12; Let Y=Y-1; Pause; Next RE; Pause"
  419. B$=B$+"For RE=1 To 3; Let Y=Y+4; Next RE; Pause"
  420. '
  421. '.................Then move to just 18 before the image......................  
  422. '
  423. If R=1
  424.    B$=B$+"For RE=1 To 95; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  425. End If 
  426. If R=2
  427.    B$=B$+"For RE=1 To 103; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  428. End If 
  429. If R=3
  430.    B$=B$+"For RE=1 To 111; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  431. End If 
  432. If R=4
  433.    B$=B$+"For RE=1 To 71; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  434. End If 
  435. If R=5
  436.    B$=B$+"For RE=1 To 79; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  437. End If 
  438. If R=6
  439.    B$=B$+"For RE=1 To 87; Let Y=Y+4; Next RE; Pause; Let Y=Y+2"
  440. End If 
  441. '
  442. ' ................... Slow down run to 16 past selected image........... 
  443. B$=B$+"For RE=1 To 14; Let Y=Y+3; Next RE; Pause"
  444. B$=B$+"For RE=1 To 4; Let Y=Y+2; Next RE; Pause; Pause; Pause; Pause; Pause; Pause"
  445. '
  446. ' ......................Now 16 back after halt ......................... 
  447. '
  448. B$=B$+"For RE=1 To 4; Let Y=Y-1; Next RE; Pause"
  449. B$=B$+"For RE=1 To 12; Let Y=Y-1; Pause; Next RE; Pause"
  450. '
  451. Amal 2,B$
  452. 'Rem===============================REEL 3================================  
  453. REEL_3:
  454. If HOLD_3=True Then Goto REEL_4
  455. X=Rnd(5)
  456. If X=0 Then X=6
  457. XP=X+P
  458. If XP>6 Then XP=XP-6
  459. '
  460. '...............................Move up 12 first ......................  
  461. C$=" For RF=1 To 12; Let Y=Y-1; Pause; Next RF; Pause"
  462. C$=C$+"For RF=1 To 3; Let Y=Y+4; Next RF; Pause"
  463. '
  464. '.................Then move to just 18 before the image......................  
  465. '
  466. If X=1
  467.    C$=C$+"For RF=1 To 95; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  468. End If 
  469. If X=2
  470.    C$=C$+"For RF=1 To 103; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  471. End If 
  472. If X=3
  473.    C$=C$+"For RF=1 To 111; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  474. End If 
  475. If X=4
  476.    C$=C$+"For RF=1 To 71; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  477. End If 
  478. If X=5
  479.    C$=C$+"For RF=1 To 79; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  480. End If 
  481. If X=6
  482.    C$=C$+"For RF=1 To 87; Let Y=Y+4; Next RF; Pause; Let Y=Y+2"
  483. End If 
  484. '
  485. ' .................. Slow down run to 16 past selected image...........
  486. C$=C$+"For RF=1 To 14; Let Y=Y+3; Next RF; Pause"
  487. C$=C$+"For RF=1 To 4; Let Y=Y+2; Next RF; Pause; Pause; Pause; Pause; Pause; Pause"
  488. '
  489. ' .......................Now 16 back after halt .........................
  490. C$=C$+"For RF=1 To 4; Let Y=Y-1; Next RF; Pause"
  491. C$=C$+"For RF=1 To 12; Let Y=Y-1; Pause; Next RF; Pause"
  492. '
  493. Amal 3,C$
  494. 'Rem============================Reel 4================================== 
  495. REEL_4:
  496. If HOLD_4=True Then Goto REEL_5
  497. Z=Rnd(5)
  498. If Z=0 Then Z=6
  499. ZN=Z+N
  500. If ZN>6 Then ZN=ZN-6
  501. '
  502. '...............................Move up 12 first ......................
  503. D$=" For RG=1 To 12; Let Y=Y-1; Pause; Next RG; Pause"
  504. D$=D$+"For RG=1 To 3; Let Y=Y+4; Next RG; Pause"
  505. '
  506. '.................Then move to just 18 before the image......................  
  507. '
  508. If Z=1
  509.    D$=D$+"For RG=1 To 95; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  510. End If 
  511. If Z=2
  512.    D$=D$+"For RG=1 To 103; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  513. End If 
  514. If Z=3
  515.    D$=D$+"For RG=1 To 111; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  516. End If 
  517. If Z=4
  518.    D$=D$+"For RG=1 To 119; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  519. End If 
  520. If Z=5
  521.    D$=D$+"For RG=1 To 79; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  522. End If 
  523. If Z=6
  524.    D$=D$+"For RG=1 To 87; Let Y=Y+4; Next RG; Pause; Let Y=Y+2"
  525. End If 
  526. '
  527. ' .................. Slow down run to 16 past selected image...........
  528. D$=D$+"For RG=1 To 14; Let Y=Y+3; Next RG; Pause"
  529. D$=D$+"For RG=1 To 4; Let Y=Y+2; Next RG; Pause; Pause; Pause; Pause; Pause; Pause"
  530. '
  531. ' .....................Now 16 back after halt .........................
  532. D$=D$+"For RG=1 To 4; Let Y=Y-1; Next RG; Pause"
  533. D$=D$+"For RG=1 To 12; Let Y=Y-1; Pause; Next RG; Pause"
  534. '
  535. Amal 4,D$
  536. 'Rem============================REEL 5======================================   
  537. REEL_5:
  538. If HOLD_5=True Then Goto CARRYON
  539. T=Rnd(5)
  540. If T=0 Then T=6
  541. TQ=T+Q
  542. If TQ>6 Then TQ=TQ-6
  543. '
  544. '.................................Move up 12 first ......................
  545. E$=" For RH=1 To 12; Let Y=Y-1; Pause; Next RH; Pause"
  546. E$=E$+"For RH=1 To 3; Let Y=Y+4; Next RH; Pause"
  547. '
  548. '.................Then move to just 18 before the image......................  
  549. '
  550. If T=1
  551.    E$=E$+"For RH=1 To 95; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  552. End If 
  553. If T=2
  554.    E$=E$+"For RH=1 To 103; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  555. End If 
  556. If T=3
  557.    E$=E$+"For RH=1 To 111; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  558. End If 
  559. If T=4
  560.    E$=E$+"For RH=1 To 71; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  561. End If 
  562. If T=5
  563.    E$=E$+"For RH=1 To 79; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  564. End If 
  565. If T=6
  566.    E$=E$+"For RH=1 To 87; Let Y=Y+4; Next RH; Pause; Let Y=Y+2"
  567. End If 
  568. '
  569. ' .................. Slow down run to 16 past selected image...........
  570. E$=E$+"For RH=1 To 14; Let Y=Y+3; Next RH; Pause"
  571. E$=E$+"For RH=1 To 4; Let Y=Y+2; Next RH; Pause; Pause; Pause; Pause; Pause; Pause"
  572. '
  573. ' ........................Now 16 back after halt ......................... 
  574. E$=E$+"For RH=1 To 4; Let Y=Y-1; Next RH; Pause"
  575. E$=E$+"For RH=1 To 12; Let Y=Y-1; Pause; Next RH; Pause"
  576. '
  577. Amal 5,E$
  578. '  
  579. 'P170+P310=============This is where we push the Klik button ...............     
  580. CARRYON:
  581. If STAART=False
  582.    Paste Bob 278,106,17 : Rem...............make Staart button green 
  583.    'P175+P320.......................Add 1 to GOES.........................  
  584.    Inc GOES
  585.    'P180+P330..........down to proc TRIES_NUM_3 to put black blocks in frames   
  586.    TRIES_NUM_4
  587. End If 
  588. 'P185+P340====Here the amals are turned on unless HOLDS are TRUE========   
  589. '===The first numbers are added to the second numbers and if they are ==     
  590. '==== more than 6 then 6 is deducted and you are left with next number   
  591. '
  592. '.......NG is variable to test whether all hold buttons are held. If they
  593. '....... are, go straight on to the "nudges" phase................ 
  594. NG=2
  595. If HOLD_1=False : NG=1 : Amal On 1 : W=W+V : If W>6 : W=W-6 : End If : End If 
  596. If HOLD_2=False : NG=1 : Amal On 2 : U=U+R : If U>6 : U=U-6 : End If : End If 
  597. If HOLD_3=False : NG=1 : Amal On 3 : P=P+X : If P>6 : P=P-6 : End If : End If 
  598. If HOLD_4=False : NG=1 : Amal On 4 : N=N+Z : If N>6 : N=N-6 : End If : End If 
  599. If HOLD_5=False : NG=1 : Amal On 5 : Q=Q+T : If Q>6 : Q=Q-6 : End If : End If 
  600. If NG=2 Then NUDGES=True : GOES=3 : TRIES_NUM_4
  601. '
  602. '
  603. 'P190+P350...................Turn AGAIN to TRUE..then go back to again......   
  604. AGAIN=True
  605. Goto AGAIN
  606. '===========================PROCS FROM HERE================================
  607. '
  608. '.......In this PROC we put the the changing parts of the program    
  609. Procedure NEW_GAME_RESET_1
  610.    '
  611.    '............Top and bottom of counter frame each side for  36 Tries...  
  612.    Paste Bob 6,100,15 : Paste Bob 6,46,40
  613.    Paste Bob 274,100,15 : Paste Bob 274,46,40
  614.    '
  615.    '...................... Paste blanks over "SCORE" buttons ...........
  616.    Paste Bob 10,105,4 : Paste Bob 48,105,4 : Paste Bob 96,105,4
  617.    Paste Bob 144,105,4 : Paste Bob 192,105,4 : Paste Bob 240,105,4
  618.    '
  619.    '...............................paste KLICK Button...................  
  620.    'Paste Bob 278,106,16 : Rem...3rd
  621.    '
  622.    '......................Number 36 in Tries left number frame  
  623.    Paste Bob 18,106,33
  624.    Paste Bob 26,106,36
  625.    '
  626.    '.....................Left bottom Score select oblongs....................   
  627.    Paste Bob 6,125,2 : Paste Bob 10,128,45 : Paste Bob 60,128,46
  628.    Paste Bob 16,140,2 : Paste Bob 19,143,47 : Paste Bob 70,143,48
  629.    Paste Bob 24,155,2 : Paste Bob 27,158,49 : Paste Bob 78,158,50
  630.    Paste Bob 32,170,2 : Paste Bob 36,173,51 : Paste Bob 86,173,52
  631.    Paste Bob 40,185,2 : Paste Bob 44,188,53 : Paste Bob 94,188,54
  632.    Paste Bob 50,200,2 : Paste Bob 54,203,55 : Paste Bob 104,203,56
  633.    '
  634.    '.........................Right bottom Score select oblongs............    
  635.    Paste Bob 205,125,2 : Paste Bob 209,128,8 : Paste Bob 259,128,9
  636.    Paste Bob 195,140,2 : Paste Bob 198,143,28 : Paste Bob 249,143,29
  637.    Paste Bob 187,155,2 : Paste Bob 191,158,57 : Paste Bob 241,158,58
  638.    Paste Bob 178,170,2 : Paste Bob 182,173,59 : Paste Bob 232,173,60
  639.    Paste Bob 169,185,2 : Paste Bob 173,188,61 : Paste Bob 223,188,62
  640.    Paste Bob 159,200,2 : Paste Bob 163,203,63 : Paste Bob 213,203,64
  641.    '
  642.    '
  643.    Limit Mouse : Rem  Releases mouse pointer
  644.    '
  645.    'P130---------Now we set the variable values for start and new games-        
  646.    '
  647.    GOES=0 : TRIES=0 : TS=0 : L=0 : NUDGES=False : STAART=False : AGAIN=False
  648.    SELECT_1=False : SELECT_2=False : SELECT_3=False : SCORE=0 : PAIR=0 : SCOOP=0
  649.    SELECT_4=False : SELECT_5=False : H=10 : J=45 : K=278 : M=33 : S=36 : LEFT=0
  650.    HOLD_1=False : HOLD_2=False : HOLD_3=False : HOLD_4=False : HOLD_5=False
  651.    ZON13=True : ZON14=True : ZON15=True : ZON16=True : ZON17=True : ZON18=True
  652.    PLANE=True : MARIO=True : FROG=True : MERMAID=True : BIKE=True : WIZARD=True
  653.    '
  654.    'P135.....................Puts Last Score on screen..................... 
  655.    LAST_SCORE=THIS_SCORE
  656.    Ink 11,4
  657.    S$=Right$("0000"+Mid$(Str$(LAST_SCORE),2),4)
  658.    Text 278,36,S$
  659.    '
  660.    'P140.....................Changes HI_SCORE if needed.................
  661.    If LAST_SCORE>HI_SCORE
  662.       HI_SCORE=LAST_SCORE
  663.       Ink 11,4
  664.       S$=Right$("0000"+Mid$(Str$(HI_SCORE),2),4)
  665.       Text 182,16,S$
  666.    End If 
  667.    '
  668.    'P145.....................Brings This_Score down to zero................ 
  669.    Ink 11,4
  670.    S$=Right$("0000"+Mid$(Str$(0),2),4)
  671.    Text 88,36,S$
  672.    THIS_SCORE=0
  673. End Proc
  674. '
  675. Procedure FLAASH_2
  676.    Curs Off 
  677.    Repeat 
  678.       Ink 11,0
  679.       S$="END OF GAME -- HOLD LEFT MOUSE"
  680.       Text 40,238,S$
  681.       Wait 40
  682.       Ink 0,0
  683.       S$="THIS WILL BLANK OUT THE ABOVE-"
  684.       Text 40,238,S$
  685.       Wait 10
  686.    Until Mouse Key<>0
  687. End Proc
  688. '
  689. Procedure KLICKING_3
  690.    Paste Bob 278,106,16 : Rem...1st
  691.    Do 
  692.       Ink 11,0
  693.       S$="CLICK ON      TO START"
  694.       Text 70,238,S$
  695.       Ink 9,14
  696.       T$="KLIK"
  697.       Text 142,238,T$
  698.       If Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0
  699.          Ink 0,0
  700.          S$="THIS WILL BLANK OUT ABOVE"
  701.          Text 70,238,S$
  702.          Pop Proc
  703.       End If 
  704.    Loop 
  705. End Proc
  706. '
  707. 'P260........................................... 
  708. 'This proc counts the "TRIES" & puts black blocks in the counter frames......    
  709. '.....................K=278...H=10 and J=45 and TS=0.L=0.................      
  710. Procedure TRIES_NUM_4
  711.    If L<3
  712.       'P270..................we go to TRINUM_5 to dec the printed number 
  713.       TRINUM_5
  714.       Inc TS : Inc TRIES
  715.       J=J+4
  716.       Paste Bob H,J,99
  717.       Paste Bob K,J,99
  718.       Inc L
  719.       '
  720.       If TS=3 : J=J+1 : End If 
  721.       If TS=6 : J=J+1 : End If 
  722.       If TS=9 : J=J+1 : End If 
  723.       If TS=12
  724.          If TRIES=24
  725.             J=45 : H=32 : K=300 : TS=0
  726.          Else 
  727.             J=45 : H=21 : K=289 : TS=0
  728.          End If 
  729.          '
  730.       End If 
  731.       '
  732.    End If 
  733. End Proc
  734. '  
  735. 'P270..............................................................
  736. Procedure TRINUM_5
  737.    'This proc blanks out the credit number of tries & then puts in new number..   
  738.    '....................M=tens,..S=units............................... 
  739.    Paste Bob 10,105,4
  740.    Dec S
  741.    If S=29 : Dec M : S=39
  742.    End If 
  743.    If M>30
  744.       Paste Bob 18,106,M
  745.    End If 
  746.    Paste Bob 26,106,S
  747. End Proc
  748. '
  749. Procedure GAMBLING_6
  750.    Wait Vbl 
  751.    Ink 6,4
  752.    S$="GAMBLE TO GET FOUR OF A KIND ?"
  753.    Text 50,238,S$
  754.    Bob 8,145,138,92
  755.    Bob 9,148,164,93
  756.    GAMBLE=10
  757.    Repeat 
  758.       If Hzone(X Mouse,Y Mouse)=19 and Mouse Key<>0
  759.       GAMBLE=True : End If 
  760.       If Hzone(X Mouse,Y Mouse)=20 and Mouse Key<>0
  761.       GAMBLE=False : End If 
  762.    Until GAMBLE=True or GAMBLE=False
  763.    Bob Off 8
  764.    Bob Off 9
  765.    If GAMBLE=True Then GAMBLING_7
  766. End Proc
  767. '
  768. Procedure GAMBLING_7
  769.    GAMBLE=10
  770.    Ink 6,4
  771.    S$="CLICK ON ARROW FOR SELECTION   "
  772.    Text 50,238,S$
  773.    '
  774.    '..................Set zones for six Arrows  
  775.    Set Zone 21,78,128 To 110,137 : Set Zone 22,88,143 To 120,152
  776.    Set Zone 23,96,158 To 128,167 : Set Zone 24,104,173 To 136,182
  777.    Set Zone 25,112,188 To 144,197 : Set Zone 26,122,203 To 154,212
  778.    If PLANE=True Then Bob 10,78,128,94
  779.    If MARIO=True Then Bob 11,88,143,94
  780.    If FROG=True Then Bob 12,96,158,94
  781.    If MERMAID=True Then Bob 13,104,173,94
  782.    If BIKE=True Then Bob 14,112,188,94
  783.    If WIZARD=True Then Bob 15,122,203,94
  784.    Repeat 
  785.       If Hzone(X Mouse,Y Mouse)=21 and Mouse Key<>0 and PLANE=True
  786.       Bob 16,78,128,94 : GAMBLE=True : LIM=1 : End If 
  787.       If Hzone(X Mouse,Y Mouse)=22 and Mouse Key<>0 and MARIO=True
  788.       Bob 17,88,143,94 : GAMBLE=True : LIM=2 : End If 
  789.       If Hzone(X Mouse,Y Mouse)=23 and Mouse Key<>0 and FROG=True
  790.       Bob 18,96,158,94 : GAMBLE=True : LIM=3 : End If 
  791.       If Hzone(X Mouse,Y Mouse)=24 and Mouse Key<>0 and MERMAID=True
  792.       Bob 19,104,173,94 : GAMBLE=True : LIM=4 : End If 
  793.       If Hzone(X Mouse,Y Mouse)=25 and Mouse Key<>0 and BIKE=True
  794.       Bob 20,112,188,94 : GAMBLE=True : LIM=5 : End If 
  795.       If Hzone(X Mouse,Y Mouse)=26 and Mouse Key<>0 and WIZARD=True
  796.       Bob 21,122,203,94 : GAMBLE=True : LIM=6 : End If 
  797.    Until GAMBLE=True
  798.    Reset Zone 21 : Reset Zone 22 : Reset Zone 23
  799.    Reset Zone 24 : Reset Zone 25 : Reset Zone 26
  800.    Bob Off 10 : Bob Off 11 : Bob Off 12 : Bob Off 13 : Bob Off 14 : Bob Off 15
  801. End Proc
  802. '
  803. 'P240......................................................
  804. Procedure HOLDING_8
  805.    Wait Vbl 
  806.    Paste Bob 278,106,16 : Rem...1st
  807.    Ink 11,0
  808.    S$="SELECT HOLDS & CLICK ON KLIK   "
  809.    Text 50,238,S$
  810. End Proc
  811. '
  812. 'P430................................................. 
  813. Procedure NUDGEHINT_9
  814.    Ink 11,0
  815.    S$="USE NUDGES OR CLICK ON SCORE TO CLEAR"
  816.    Text 10,238,S$
  817. End Proc
  818. '
  819. '
  820. 'P400............................................................. 
  821. Procedure NUDGES_11
  822.    '...........................Animate the nudge numbers up and down 3 times
  823.    Channel 10 To Bob 10
  824.    Bob 10,278,49,22 : Wait 10
  825.    Amal 10,"Anim 3,(18,10)(19,10)(20,10)(21,10)(22,10);"
  826.    Amal On 10 : Wait 150 : Amal Off 10
  827.    Bob Off 10 : Paste Bob 278,49,22
  828.    '.....................Pick out random nudge number and go to Nudge_num 
  829.    Wait Vbl 
  830.    GR=Rnd(4)
  831. 'P410............................
  832.    If GR>0 Then NUDGE_NUM_13
  833. 'P420..............................
  834.    NUDGE_12
  835. End Proc
  836. '
  837. '..........................Paste the word Nudge on five buttons..........
  838. '
  839. 'P420..................................... 
  840. Procedure NUDGE_12
  841.    If GR=0 Then Goto MISS_NUDGES
  842.    Paste Bob 48,105,25 : Paste Bob 96,105,25 : Paste Bob 144,105,25
  843.    Paste Bob 192,105,25 : Paste Bob 240,105,25
  844.    '
  845.    '........................paste the word SCORE over the start button... 
  846.    Paste Bob 278,106,23
  847.    '
  848.    Repeat 
  849.       If Hzone(X Mouse,Y Mouse)=1 and Mouse Key<>0
  850.          NUDGE_1$=" For RK=1 To 32; Let Y=Y+1; Next RK; Pause"
  851.          Amal 1,NUDGE_1$
  852.          Amal On 1 : Wait 35 : Dec GR
  853.          NUDGE_NUM_13
  854.          W=W+1 : If W>6 : W=W-6 : End If 
  855.       End If 
  856.       '
  857.       If Hzone(X Mouse,Y Mouse)=2 and Mouse Key<>0
  858.          NUDGE_2$=" For RL=1 To 32; Let Y=Y+1; Next RL; Pause"
  859.          Amal 2,NUDGE_2$
  860.          Amal On 2 : Wait 35 : Dec GR
  861.          NUDGE_NUM_13
  862.          U=U+1 : If U>6 : U=U-6 : End If 
  863.       End If 
  864.       '
  865.       If Hzone(X Mouse,Y Mouse)=3 and Mouse Key<>0
  866.          NUDGE_3$=" For RM=1 To 32; Let Y=Y+1; Next RM; Pause"
  867.          Amal 3,NUDGE_3$
  868.          Amal On 3 : Wait 35 : Dec GR
  869.          NUDGE_NUM_13
  870.          P=P+1 : If P>6 : P=P-6 : End If 
  871.       End If 
  872.       '
  873.       If Hzone(X Mouse,Y Mouse)=4 and Mouse Key<>0
  874.          NUDGE_4$=" For RN=1 To 32; Let Y=Y+1; Next RN; Pause"
  875.          Amal 4,NUDGE_4$
  876.          Amal On 4 : Wait 35 : Dec GR
  877.          NUDGE_NUM_13
  878.          N=N+1 : If N>6 : N=N-6 : End If 
  879.       End If 
  880.       '  
  881.       If Hzone(X Mouse,Y Mouse)=5 and Mouse Key<>0
  882.          NUDGE_5$=" For RO=1 To 32; Let Y=Y+1; Next RO; Pause"
  883.          Amal 5,NUDGE_5$
  884.          Amal On 5 : Wait 35 : Dec GR
  885.          NUDGE_NUM_13
  886.          Q=Q+1 : If Q>6 : Q=Q-6 : End If 
  887.       End If 
  888. 'P430......................................
  889.       NUDGEHINT_9
  890.    Until GR=0 or Hzone(X Mouse,Y Mouse)=6 and Mouse Key<>0 : Rem Start button 
  891.    Ink 0,0
  892.    S$="HOPEFULLY THIS WILL  BLANK  OUT  ABOVE"
  893.    Text 8,238,S$
  894.    MISS_NUDGES:
  895.    '........................paste the word SCORE over the start button... 
  896.    Paste Bob 278,106,23
  897.    '
  898. 'P440............................................
  899.    CLONE_IT_14
  900. 'P450..............................................
  901.    SCORE_15
  902. End Proc
  903. '
  904. 'P410................................... 
  905. Procedure NUDGE_NUM_13
  906.    If GR=1 Then Paste Bob 278,49,21
  907.    If GR=2 Then Paste Bob 278,49,20
  908.    If GR=3 Then Paste Bob 278,49,19
  909.    If GR=4 Then Paste Bob 278,49,18
  910. End Proc
  911. '
  912. '
  913. 'P440................................
  914. Procedure CLONE_IT_14
  915.    '...................................called from Proc NUDGE...........  
  916.    '............Puts identical copy of frame over to the right side ..    
  917.    Get Bob 41,6,46 To 42,101
  918.    Paste Bob 274,46,41
  919. End Proc
  920. '
  921. 'P450................................
  922. Procedure SCORE_15
  923.    '.......................called from Proc NUDGE............   
  924.    '........................Paste "SCORE" under each reel   
  925.    Paste Bob 48,106,23 : Paste Bob 96,106,23
  926.    Paste Bob 144,106,23 : Paste Bob 192,106,23 : Paste Bob 240,106,23
  927.    '
  928. End Proc
  929. 'P460....................................
  930. Procedure SELECTYOURHAND_16
  931.    '
  932.    If GAMBLE=True
  933.       TRAPPOINT_18
  934.    End If 
  935.    'P470.....Finds out what hand is displayed for right side...............   
  936.    If W=U : Inc PAIR : End If : If W=P : Inc PAIR : End If 
  937.    If W=N : Inc PAIR : End If : If W=Q : Inc PAIR : End If 
  938.    If U=P : Inc PAIR : End If : If U=N : Inc PAIR : End If 
  939.    If U=Q : Inc PAIR : End If : If P=N : Inc PAIR : End If 
  940.    If P=Q : Inc PAIR : End If : If N=Q : Inc PAIR : End If 
  941.    '
  942.    'P480..............bonus for five the same...................
  943.    If PAIR=10
  944.       BONUS=100
  945.       SCORE=SCORE+BONUS
  946.       Ink 11,4
  947.       B$=" FIVE IN A ROW BONUS POINTS "
  948.       Text 30,238,B$
  949.       S$=Right$("000"+Mid$(Str$(BONUS),2),3)
  950.       Text 260,238,S$
  951.       Wait 80
  952.       Ink 0,0
  953.       B$="THIS LINE  WILL ERASE  ABOVE"
  954.       Text 30,238,B$
  955.       S$=Right$("000"+Mid$(Str$(BONUS),2),3)
  956.       Text 260,238,S$
  957.       '
  958.    End If 
  959.    '
  960.    'P490..............................TEN SECOND TIMER WARNING..................  
  961.    TYME=120
  962.    Repeat 
  963.       If GAMBLE=True
  964.          Ink 6,4
  965.          S$=" PRESS LEFT MOUSE BUTTON NOW"
  966.          Text 30,238,S$
  967.          Goto PICKOUT
  968.       End If 
  969.       '
  970.       'If GAMBLE=False Then Goto TENSEC
  971.       'TENSEC: 
  972.       If TYME=120 Then Bell 
  973.       If TYME>96
  974.          Ink 6,4
  975.          S$="YOU HAVE 10 SECS TO SELECT YOUR CHOICE"
  976.          Text 8,238,S$
  977.       End If 
  978.       If TYME=96 Then Bell 
  979.       If TYME<96 and TYME>72
  980.          Ink 6,4
  981.          S$="YOU HAVE  8 SECS TO SELECT YOUR CHOICE"
  982.          Text 8,238,S$
  983.       End If 
  984.       If TYME=72 Then Bell 
  985.       If TYME<72 and TYME>48
  986.          Ink 6,4
  987.          S$="YOU HAVE  6 SECS TO SELECT YOUR CHOICE"
  988.          Text 8,238,S$
  989.       End If 
  990.       If TYME=48 Then Bell 
  991.       If TYME<48 and TYME>36
  992.          Ink 6,4
  993.          S$="YOU HAVE  4 SECS TO SELECT YOUR CHOICE"
  994.          Text 8,238,S$
  995.       End If 
  996.       If TYME=36 Then Bell 
  997.       If TYME<36 and TYME>24
  998.          Ink 6,4
  999.          S$="YOU HAVE  3 SECS TO SELECT YOUR CHOICE"
  1000.          Text 8,238,S$
  1001.       End If 
  1002.       If TYME=24 Then Bell 
  1003.       If TYME<24 and TYME>12
  1004.          Ink 6,4
  1005.          S$="YOU HAVE  2 SECS TO SELECT YOUR CHOICE"
  1006.          Text 8,238,S$
  1007.       End If 
  1008.       If TYME=12 Then Bell 
  1009.       If TYME<12 and TYME>0
  1010.          Ink 6,4
  1011.          S$="YOU HAVE  1 SECS TO SELECT YOUR CHOICE"
  1012.          Text 8,238,S$
  1013.       End If 
  1014.       '
  1015.       PICKOUT:
  1016.       'P500.......................Bottom right hand side score oblongs.......
  1017.       ESCAPE=False : PITURE=0
  1018.       If Hzone(X Mouse,Y Mouse)=13 and Mouse Key<>0
  1019.          If PAIR>4 and ZON13=True : SCORE=SCORE+50 : ZON13=False
  1020.             ESCAPE=True : Paste Bob 209,128,67 : Paste Bob 259,128,68
  1021.       End If : End If 
  1022.       If Hzone(X Mouse,Y Mouse)=14 and Mouse Key<>0
  1023.          If PAIR=4 and ZON14=True : SCORE=SCORE+45 : ZON14=False
  1024.             ESCAPE=True : Paste Bob 198,143,69 : Paste Bob 249,143,70
  1025.       End If : End If 
  1026.       If Hzone(X Mouse,Y Mouse)=15 and Mouse Key<>0
  1027.          If PAIR=0 and ZON15=True : SCORE=SCORE+40 : ZON15=False
  1028.             ESCAPE=True : Paste Bob 191,158,83 : Paste Bob 241,158,84
  1029.       End If : End If 
  1030.       If Hzone(X Mouse,Y Mouse)=16 and Mouse Key<>0
  1031.          If PAIR>2 and ZON16=True : SCORE=SCORE+35 : ZON16=False
  1032.             ESCAPE=True : Paste Bob 182,173,85 : Paste Bob 232,173,86
  1033.       End If : End If 
  1034.       If Hzone(X Mouse,Y Mouse)=17 and Mouse Key<>0
  1035.          If PAIR=2 or PAIR>3 and ZON17=True : SCORE=SCORE+30 : ZON17=False
  1036.             ESCAPE=True : Paste Bob 173,188,87 : Paste Bob 223,188,88
  1037.       End If : End If 
  1038.       If Hzone(X Mouse,Y Mouse)=18 and Mouse Key<>0
  1039.          If PAIR<2 and ZON18=True : SCORE=SCORE+25 : ZON18=False
  1040.             ESCAPE=True : Paste Bob 163,203,89 : Paste Bob 213,203,90
  1041.       End If : End If 
  1042.       'P510......................Bottom left hand score oblongs................  
  1043.       '
  1044.       '.....SET ZONES 6 LEFT SIDE  
  1045.       Set Zone 7,10,128 To 110,139 : Set Zone 8,20,143 To 120,154
  1046.       Set Zone 9,28,158 To 128,169 : Set Zone 10,36,173 To 136,184
  1047.       Set Zone 11,44,188 To 144,199 : Set Zone 12,54,203 To 154,214
  1048.       '  
  1049.       If Hzone(X Mouse,Y Mouse)=7 and Mouse Key<>0
  1050.          If PLANE=True : PITURE=6 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*4
  1051.             PLANE=False : Paste Bob 10,128,71 : Paste Bob 60,128,72 : Inc LEFT
  1052.       End If : End If 
  1053.       If Hzone(X Mouse,Y Mouse)=8 and Mouse Key<>0
  1054.          If MARIO=True : PITURE=5 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*7
  1055.             MARIO=False : Paste Bob 20,143,73 : Paste Bob 70,143,74 : Inc LEFT
  1056.       End If : End If 
  1057.       If Hzone(X Mouse,Y Mouse)=9 and Mouse Key<>0
  1058.          If FROG=True : PITURE=4 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*5
  1059.             FROG=False : Paste Bob 28,158,75 : Paste Bob 78,158,76 : Inc LEFT
  1060.       End If : End If 
  1061.       If Hzone(X Mouse,Y Mouse)=10 and Mouse Key<>0
  1062.          If MERMAID=True : PITURE=3 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*8
  1063.             MERMAID=False : Paste Bob 36,173,77 : Paste Bob 86,173,78 : Inc LEFT
  1064.       End If : End If 
  1065.       If Hzone(X Mouse,Y Mouse)=11 and Mouse Key<>0
  1066.          If BIKE=True : PITURE=2 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*6
  1067.             BIKE=False : Paste Bob 44,188,79 : Paste Bob 94,188,80 : Inc LEFT
  1068.       End If : End If 
  1069.       If Hzone(X Mouse,Y Mouse)=12 and Mouse Key<>0
  1070.          If WIZARD=True : PITURE=1 : SWOOP_17 : DROOP=SCOOP : SCOOP=SCOOP*9
  1071.             WIZARD=False : Paste Bob 54,203,81 : Paste Bob 104,203,82 : Inc LEFT
  1072.       End If : End If 
  1073.       '
  1074.       Reset Zone 7 : Reset Zone 8 : Reset Zone 9
  1075.       Reset Zone 10 : Reset Zone 11 : Reset Zone 12
  1076.       Dec TYME
  1077.    Until PITURE>0 or ESCAPE=True or TYME=0
  1078.    Limit Mouse 
  1079.    '
  1080.    Ink 0,0
  1081.    S$="HOPEFULLY THIS WILL  CLEAR THOSE WORDS"
  1082.    Text 8,238,S$
  1083.    'P510............................................... 
  1084.    If TYME=0
  1085.       SCORE=SCORE-50
  1086.       Ink 11,4
  1087.       S$="OUT OF TIME LOSE 50 POINTS"
  1088.       Text 56,238,S$
  1089.       Wait 150
  1090.       Ink 0,0
  1091.       B$="THIS LINE WILL ERASE ABOVE"
  1092.       Text 56,238,B$
  1093.    End If 
  1094.    'P520..............................................
  1095.    If GAMBLE=True and DROOP>3
  1096.       SCOOP=100
  1097.       GAMBLE=False
  1098.    End If 
  1099.    If GAMBLE=True and DROOP<4
  1100.       SCOOP=-25
  1101.       GAMBLE=False
  1102.    End If 
  1103.    Bob Off 16 : Bob Off 17 : Bob Off 18 : Bob Off 19 : Bob Off 20 : Bob Off 21
  1104.    'P530........................................... 
  1105.    THIS_SCORE=THIS_SCORE+SCORE+SCOOP
  1106.    SCORE=0 : SCOOP=0
  1107.    Ink 11,4
  1108.    S$=Right$("0000"+Mid$(Str$(THIS_SCORE),2),4)
  1109.    Text 88,36,S$
  1110. End Proc
  1111. '
  1112. Procedure SWOOP_17
  1113.    SCOOP=0
  1114.    If PITURE=W Then Inc SCOOP
  1115.    If PITURE=U Then Inc SCOOP
  1116.    If PITURE=P Then Inc SCOOP
  1117.    If PITURE=N Then Inc SCOOP
  1118.    If PITURE=Q Then Inc SCOOP
  1119. End Proc
  1120. '
  1121. '
  1122. 'P470......................................... 
  1123. Procedure TRAPPOINT_18
  1124.    If LIM=1 Then Limit Mouse 140,170 To 238,178
  1125.    If LIM=2 Then Limit Mouse 145,185 To 245,193
  1126.    If LIM=3 Then Limit Mouse 155,200 To 255,208
  1127.    If LIM=4 Then Limit Mouse 165,215 To 265,223
  1128.    If LIM=5 Then Limit Mouse 172,230 To 272,238
  1129.    If LIM=6 Then Limit Mouse 182,245 To 280,253
  1130. End Proc